inherited frmCad_EAN: TfrmCad_EAN
  Left = 127
  Top = 152
  BorderStyle = bsDialog
  Caption = 'Cadastro de C'#243'digos EAN'
  ClientWidth = 711
  OldCreateOrder = True
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 711
    Height = 105
    object Label1: TLabel
      Left = 113
      Top = 44
      Width = 118
      Height = 14
      Caption = 'Informe o c'#243'digo EAN'
    end
    object Label2: TLabel
      Left = 13
      Top = 85
      Width = 67
      Height = 14
      Caption = 'N.'#186' Volumes'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 9
      Top = 44
      Width = 97
      Height = 14
      Caption = 'N.'#186' da Embalagem'
    end
    object SpeedButton1: TSpeedButton
      Left = 544
      Top = 47
      Width = 137
      Height = 37
      Cursor = crHandPoint
      Hint = 'Gera automaticamente os c'#243'digos EAN p/ este produto'
      Caption = 'Gerar EAN '
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00370777033333
        3330337F3F7F33333F3787070003333707303F737773333373F7007703333330
        700077337F3333373777887007333337007733F773F333337733700070333333
        077037773733333F7F37703707333300080737F373333377737F003333333307
        78087733FFF3337FFF7F33300033330008073F3777F33F777F73073070370733
        078073F7F7FF73F37FF7700070007037007837773777F73377FF007777700730
        70007733FFF77F37377707700077033707307F37773F7FFF7337080777070003
        3330737F3F7F777F333778080707770333333F7F737F3F7F3333080787070003
        33337F73FF737773333307800077033333337337773373333333}
      NumGlyphs = 2
      OnClick = SpeedButton1Click
    end
    object pnlProduto: TPanel
      Left = 3
      Top = 3
      Width = 705
      Height = 38
      Align = alTop
      BevelInner = bvLowered
      Color = 14737632
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -27
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
    end
    object edtEAN: TEdit
      Left = 112
      Top = 60
      Width = 297
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      MaxLength = 40
      TabOrder = 1
    end
    object edEmb: TCurrencyEdit
      Left = 87
      Top = 85
      Width = 23
      Height = 19
      TabStop = False
      AutoSize = False
      BorderStyle = bsNone
      Color = 14081504
      DecimalPlaces = 0
      DisplayFormat = ',0;-0'
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 5
    end
    object edtEmb: TEdit
      Left = 8
      Top = 60
      Width = 99
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      MaxLength = 2
      TabOrder = 0
      OnEnter = edtEmbEnter
      OnKeyPress = edtEmbKeyPress
    end
    object edtVidros1: TCurrencyEdit
      Left = 428
      Top = 60
      Width = 89
      Height = 21
      AutoSize = False
      DisplayFormat = '0.00'
      TabOrder = 3
      Visible = False
      OnKeyDown = edtVidros1KeyDown
    end
    object edtVidros: TRadioGroup
      Left = 420
      Top = 42
      Width = 104
      Height = 41
      Caption = 'Vidro'
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        'N'#227'o'
        'Sim')
      TabOrder = 2
      OnExit = edtVidrosExit
    end
  end
  inherited Panel2: TPanel
    Top = 105
    Width = 711
    Height = 193
    Enabled = True
    object dbgEAN: TDBGrid
      Left = 3
      Top = 3
      Width = 705
      Height = 187
      Align = alClient
      Ctl3D = False
      DataSource = DataSource1
      FixedColor = 14737632
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      OnCellClick = dbgEANCellClick
      OnDrawColumnCell = dbgEANDrawColumnCell
      OnEnter = dbgEANEnter
      OnKeyDown = dbgEANKeyDown
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Emb'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = 'EMB'
          Width = 34
          Visible = True
        end
        item
          Color = 16056319
          Expanded = False
          FieldName = 'CodEAN'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = 'C'#211'DIGO EAN'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Vidros'
          ReadOnly = True
          Visible = True
        end
        item
          Color = 16776176
          Expanded = False
          FieldName = 'Volume'
          Title.Color = 16776176
          Width = 163
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Botao'
          Title.Caption = ' '
          Title.Color = clWhite
          Visible = True
        end>
    end
  end
  inherited Panel4: TPanel
    Width = 711
    inherited btnCancelar1: TBitBtn
      Left = 286
      Top = 12
    end
    inherited btnFechar1: TBitBtn
      Left = 599
      Top = 12
    end
    inherited BtnEliminar1: TBitBtn
      Left = 10
      Top = 12
    end
    inherited btnlistagem1: TBitBtn
      Left = 606
      Top = 12
    end
    inherited btnGravar: TFlatButton
      OnClick = btnGravarClick
    end
    inherited BtnEliminar: TFlatButton
      Left = 138
      Top = 43
      Visible = False
    end
    inherited btnCancelar: TFlatButton
      Left = 271
    end
    inherited btnlistagem: TFlatButton
      Left = 339
      Top = 50
    end
    inherited btnFechar: TFlatButton
      Left = 587
    end
  end
  inherited BS: TStatusBar
    Width = 711
  end
  object CDS: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 386
    Top = 246
    object CDSEmb: TStringField
      FieldName = 'Emb'
      Size = 2
    end
    object CDSCodEAN: TStringField
      FieldName = 'CodEAN'
      Size = 40
    end
    object CDSVidros: TFloatField
      FieldName = 'Vidros'
    end
    object CDSVolume: TStringField
      FieldName = 'Volume'
      OnGetText = CDSVolumeGetText
      Size = 15
    end
  end
  object DataSource1: TDataSource
    DataSet = CDS
    Left = 356
    Top = 247
  end
  object DataSource2: TDataSource
    DataSet = FrmCad_produto.CDSVolumes
    Left = 248
    Top = 217
  end
end
